( *********************************************************************
  File:        SIMPLE.F
  Author:      Dencom Inc.     -     www.dencom-inc.com
  Date:        January 25, 1999

  Description: Sample ISDN test script. This test script shows some of
  the basic concepts used in ISDN test scripts. Before using this
  script, a Message Pool must be created that contains messages named
  SETUP, CONN, and REL_COM. See the Application Note titled "How to
  Build and Store ISDN Messages" located at www.dencom-inc.com.

  How to Use:
  1. Copy this test script to the PT Series:
  - prepare a DOS diskette to copy the ASCII file to. You MUST use a 
    double density [720 KB] DOS diskette formatted on your PC with a
    label. The diskette MUST be formatted with a label
  - place the DOS diskette into the floppy disk drive on the left [DR0:]
  - go to the "DOS-Files" topic. Press F2 [Copy]. Enter the file name
    "DR0:SIMPLE.TXT" in the text field labelled "Copy file:". Enter the
    file name again in the text field labelled "to file:" and specify the
    destination drive [example WD2].
  Example:
  Copy file:  DR0:SIMPLE.TXT       to file:  WD2:SIMPLE.F

  2. Load the ISDN Emulation.
  3. Load the CCITT_1988 message set.
  4. Create a Message Pool with messages named SETUP, CONN and REL_COM.
  5. Load the SIMPLE.F test script and RUN.
  ********************************************************************* )

TCLR

( The STATE_INIT phase will label the function keys under the TestKeys
  topic and move the cursor to this topic when the test is loaded. The
  STATE_INIT is also where the script can initialize variables and
  counters, start timers etc. )
  
0 STATE_INIT{
  CLEAR_KEYS
  " Setup" 1 LABEL_KEY
  " TestKeys" SET_CURR_TOPIC
}STATE_INIT


( STATE 0 is the only state in this sample script. It will wait for one
  of three events to occur: the user presses F1, a SETUP message is
  received, or timer 101 expires. When one of these events occurs, a 
  corresponding action is executed. )

0 STATE{

( When the user presses F1, a SETUP message is sent. )

  UF1 ?KEY
  ACTION{
    " SETUP" POOL SEND_I
  }ACTION

( If a SETUP message is received, a CONNECT message is sent and timer
  101 is started for 30 seconds. )

  M#SETUP ?L3_MSG
  ACTION{
    " CONN" POOL SEND_I
    101 30 START_TIMER
  }ACTION

( If timer 101 expires, a REL_COM message is sent. )

  101 ?TIMER
  ACTION{
    " REL_COM" POOL SEND_I
  }ACTION

}STATE